منو
  • تبديل تاريخ جلالي (شمسي) به ميلادي
  • بهینه سازی موتورهای جستجو محمد زند

تبديل تاريخ جلالي (شمسي) به ميلادي

تبديل تاريخ جلالي (شمسي) به ميلادي: تبديل تاريخ جلالي (شمسي) به ميلادي

تبديل تاريخ جلالي (شمسي) به ميلادي

--First we need to convert Persian calendar date to Julian Calendar date

Create FUNCTION [dbo].[UDF_Persian_To_Julian](@iYear int,@iMonth int,@iDay int)

RETURNS bigint

AS

Begin

 

Declare @PERSIAN_EPOCH  as int

Declare @epbase as bigint

Declare @epyear as bigint

Declare @mdays as bigint

Declare @Jofst  as Numeric(18,2)

Declare @jdn bigint

 

Set @PERSIAN_EPOCH=1948321

Set @Jofst=2415020.5

 

If @iYear>=0

    Begin

        Set @epbase=@iyear-474

    End

Else

    Begin

        Set @epbase = @iYear - 473

    End

    set @epyear=474 + (@epbase%2820)

If @iMonth<=7

    Begin

        Set @mdays=(Convert(bigint,(@iMonth) - 1) * 31)

    End

Else

    Begin

        Set @mdays=(Convert(bigint,(@iMonth) - 1) * 30+6)

    End

    Set @jdn =Convert(int,@iday) + @mdays+ Cast(((@epyear * 682) - 110) / 2816 as int)  + (@epyear - 1) * 365 + Cast(@epbase / 2820 as int) * 1029983 + (@PERSIAN_EPOCH - 1)

    RETURN @jdn

End

Go

--Secondly, convert Julian calendar date to Gregorian to achieve the target.

Create FUNCTION [dbo].[UDF_Julian_To_Gregorian] (@jdn bigint)

Returns nvarchar(11)

as

Begin

    Declare @Jofst  as Numeric(18,2)

    Set @Jofst=2415020.5

    Return Convert(nvarchar(11),Convert(datetime,(@jdn- @Jofst),113),110)

End

Go

 

-- Here is the example

Select dbo.[UDF_Julian_To_Gregorian](dbo.[UDF_Persian_To_Julian](1391,1,30))

--Result is 04-18-2012

25 نظر

  • محمد زند / 10 شب / 5 دی 1395, / جواب

    ارسال آرشیو محتوا

    • محمد زند / 10 شب / 5 دی 1395, / جواب

      محتوای ارسالی از آرشیو 1393

به صفحه اول خوش آمدید